VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BParmImpresionTickets"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvarnTicketIni As String
Private mvarnTicketFin As String
Private mvarbCompania As bCompania

Public Property Get bCompania() As bCompania
Set bCompania = mvarbCompania
End Property

Public Property Set bCompania(vdata As bCompania)
Set mvarbCompania = vdata
End Property

Public Property Get nTicketIni() As String
Let nTicketIni = mvarnTicketIni
End Property

Public Property Get nTicketFin() As String
Let nTicketFin = mvarnTicketFin
End Property

Public Property Let nTicketIni(vdata As String)
mvarnTicketIni = vdata
End Property

Public Property Let nTicketFin(vdata As String)
mvarnTicketFin = vdata
End Property
